home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / plot.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  2000-08-01  |  1.0 KB  |  36 lines
  1. on exitFrame
  2.   set the trails of sprite 3 to 1
  3.   set the trails of sprite 4 to 1
  4.   set the trails of sprite 5 to 1
  5.   set y3 to the locV of sprite 3
  6.   set y4 to the locV of sprite 4
  7.   set y5 to the locV of sprite 5
  8.   set X to 0
  9.   repeat with n = 0 to 160
  10.     if the mouseDown then
  11.       exit repeat
  12.     end if
  13.     set X to X + 4
  14.     set the locH of sprite 3 to X
  15.     set the locH of sprite 4 to X
  16.     set the locH of sprite 5 to X
  17.     set the locV of sprite 3 to (-50 * float(sin(X * 0.0213))) + y3
  18.     set the locV of sprite 4 to (-50 * float(tan(X * 0.0213))) + y4
  19.     set the locV of sprite 5 to (-50 * float(cos(X * 0.0213))) + y5
  20.     updateStage()
  21.     startTimer()
  22.     repeat while the timer < 1
  23.       if the mouseDown then
  24.         exit repeat
  25.       end if
  26.     end repeat
  27.   end repeat
  28.   set the trails of sprite 3 to 0
  29.   set the trails of sprite 4 to 0
  30.   set the trails of sprite 5 to 0
  31.   set the cursor of sprite 40 to [319, 320]
  32.   set the cursor of sprite 42 to [319, 320]
  33.   set the cursor of sprite 43 to [319, 320]
  34.   set the cursor of sprite 44 to [319, 320]
  35. end
  36.